home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9402.d64 / led-demo v2.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  35 lines
  1. 10 REM ********************************
  2. 20 REM * (C) 1993 BY TRAINSOFT        *
  3. 30 REM *                              *
  4. 40 REM * (W) BY SVEN STOLZENBERG      *
  5. 50 REM *        AN DER KAISERMUEHLE 4 *
  6. 60 REM *        41747 VIERSEN 1       *
  7. 70 REM ********************************
  8. 80 REM  *********
  9. 90 REM  * MENUE *
  10. 100 REM *********
  11. 110 POKE53280,.:POKE53281,3
  12. 120 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  13. 130 PRINT"[221][146]                                      [221]";
  14. 140 PRINT"[221][146]   DEMO-PROGRAMM ZUR STEUERBAREN LED  [221]";
  15. 150 PRINT"[221][146]                                      [221]";
  16. 160 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  17. 170 INPUT"EINSCHALTZEITRAUM :";A
  18. 180 INPUT"AUSSCHALTZEITRAUM :";B
  19. 190 PRINT"   ERNEUTE EINGABE NACH DRUECKEN DER"
  20. 200 PRINT"   SPACE-TASTE !"
  21. 210 REM *******************************
  22. 220 REM *STEUERUNG DES PROZESSOR-PORTS*
  23. 230 REM *******************************
  24. 240 POKE .,PEEK(.) AND NOT 16
  25. 250 POKE .,PEEK(.) OR 16
  26. 260 FOR I=. TO A:NEXT
  27. 270 POKE 192,1:POKE 1,PEEK(1) OR 32
  28. 280 FOR J=. TO B:NEXT
  29. 290 POKE 1,PEEK(1) AND 39:POKE 192,.
  30. 300 REM *******************
  31. 310 REM * TASTATURABFRAGE *
  32. 320 REM *******************
  33. 330 GET A$:IF A$="" THEN 260
  34. 340 IF A$=CHR$(32) THEN 110
  35.